home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Utilities / Randomize / init-rnd < prev    next >
Text File  |  1998-10-23  |  363b  |  21 lines
  1. init-rnd seed
  2.  
  3. Initializes the random number generator. Each seed will produce a different random sequence. 
  4.  
  5. (init-rnd 0.456)
  6.  
  7. (let ((out nil))
  8.   (dotimes (i 10)
  9.     (push (pick-random '(a b c)) out))
  10.   out)
  11. --> (c b a a b c c b c a)
  12.  
  13. (init-rnd 0.455)
  14.  
  15. (let ((out nil))
  16.   (dotimes (i 10)
  17.     (push (pick-random '(a b c)) out ))
  18.   out)
  19. --> (a c c a b a c c c c)
  20.  
  21.